home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / dev / amos / AMOSList-0998.lzh / AMOSLIST / 000128_bounce-amos-li…net@onelist.com_Mon Sep 7 04:38:09 1998.msg < prev    next >
Text File  |  1998-10-01  |  6KB  |  154 lines
  1. >From bounce-amos-list--989-mcox=access.digex.net@onelist.com  Mon Sep  7 04:38:08 1998
  2. Received: from onelist.com (pop.onelist.com [209.207.135.229])
  3.     by pony-1.mail.digex.net (8.8.8/8.8.8) with SMTP id EAA09371
  4.     for <mcox@access.digex.net>; Mon, 7 Sep 1998 04:38:08 -0400 (EDT)
  5. Received: (qmail 29602 invoked by alias); 7 Sep 1998 08:35:56 -0000
  6. Received: (qmail 29503 invoked from network); 7 Sep 1998 08:35:53 -0000
  7. Received: from unknown (HELO neodymium.btinternet.com) (194.73.73.83) by pop.onelist.com with SMTP; 7 Sep 1998 08:35:53 -0000
  8. Received: from np5gt [195.99.56.11]  by neodymium.btinternet.com with smtp (Exim 1.70 #1) id 0zFwn4-0002Gn-00; Mon, 7 Sep 1998 09:36:51 +0100
  9. Message-ID: <001001bdda3a$b94e0ba0$0b3863c3@np5gt>
  10. From: "John Glanville" <John.Glanville@btinternet.com>
  11. To: <amos-list@onelist.com>
  12. Date: Mon, 7 Sep 1998 09:35:49 +0100
  13. X-Priority: 3
  14. X-MSMail-Priority: Normal
  15. X-Mailer: Microsoft Outlook Express 4.72.3110.1
  16. X-MimeOLE: Produced By Microsoft MimeOLE V4.72.3110.3
  17. Mailing-List: list amos-list@onelist.com; contact http://www.onelist.com
  18. Delivered-To: mailing list amos-list@onelist.com
  19. Precedence: bulk
  20. Reply-to: amos-list@onelist.com
  21. Mime-Version: 1.0
  22. Content-Type: multipart/alternative; boundary="----=_NextPart_000_000D_01BDDA42.E5C60AE0"
  23. Subject: [amos-list] I got Isometric! Andrew Crowe!
  24. Status: O
  25. X-Status: 
  26.  
  27. From: "John Glanville" <John.Glanville@btinternet.com>
  28.  
  29. This is a multi-part message in MIME format.
  30.  
  31. ------=_NextPart_000_000D_01BDDA42.E5C60AE0
  32. Content-Type: text/plain;
  33.     charset="iso-8859-1"
  34. Content-Transfer-Encoding: quoted-printable
  35.  
  36. Thankyou! I have now made my Isometric rotate program! Here it is! I =
  37. though U might like 2 See it... Its mainly your program! but I have =
  38. added bits I know and have tried before and also optimised it 4 the =
  39. purpose I want... So it doesn't have zoom! (ZOM?) and other stuff!
  40. Any way here it is and Thanx!
  41. Bye!
  42. Any Ideas how to make it go faster?
  43.  
  44. Load Iff "Hd2:Vector/3d/worldmap.lores",1
  45. Load Iff "Hd2:Vector/3d/worldmap.lores",0
  46. Flash Off=20
  47. Curs Off=20
  48. Degree=20
  49. Cls 0
  50. Double Buffer=20
  51. Autoback 0
  52. SW=3D64
  53. SH=3D64
  54. MX=3DSW/2
  55. MY=3DSH/2
  56. GNA=3D-1
  57. NU=3D256
  58. UN=3D400
  59. PRE=3D4
  60. AA=3D10
  61. ZA=3D5
  62.  
  63. Do=20
  64.    If GNA<>ANG
  65.       Blit Clear -1
  66.       S=3DSin(ANG)*NU
  67.       C=3DCos(ANG)*NU
  68.       For Y=3D0 To SW Step PRE
  69.          For X=3D0 To SH Step PRE
  70.             Screen 1
  71.             Trap P=3DF Point(X+MX,Y+MY)
  72.             RX=3DX-MX
  73.             RY=3DY-MY
  74.             NX=3D(RX*C+RY*S)/UN+MX
  75.             NY=3D((RY*C-RX*S)/UN+MY)/2
  76.             Screen 0
  77.             Cls P,NX,NY To NX+PRE,NY+PRE
  78.          Next X
  79.       Next Y
  80.       Screen Swap=20
  81.    End If=20
  82.    GNA=3DANG
  83.    JA=3DJleft(1)+-Jright(1)
  84.    ANG=3DANG+(JA*AA)
  85. Loop=20
  86.  
  87.  
  88. ------=_NextPart_000_000D_01BDDA42.E5C60AE0
  89. Content-Type: text/html;
  90.     charset="iso-8859-1"
  91. Content-Transfer-Encoding: quoted-printable
  92.  
  93. <!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML//EN">
  94. <HTML>
  95. <HEAD>
  96.  
  97. <META content=3Dtext/html;charset=3Diso-8859-1 =
  98. http-equiv=3DContent-Type>
  99. <META content=3D'"MSHTML 4.72.3110.7"' name=3DGENERATOR>
  100. </HEAD>
  101. <BODY bgColor=3D#ffffff>
  102. <DIV><FONT color=3D#000000 size=3D2>Thankyou! I have now made my =
  103. Isometric rotate=20
  104. program! Here it is! I though U might like 2 See it... Its mainly your =
  105. program!=20
  106. but I have added bits I know and have tried before and also optimised it =
  107. 4 the=20
  108. purpose I want... So it doesn't have zoom! (ZOM?) and other =
  109. stuff!</FONT></DIV>
  110. <DIV><FONT size=3D2>Any way here it is and Thanx!</FONT></DIV>
  111. <DIV><FONT size=3D2>Bye!</FONT></DIV>
  112. <DIV><FONT size=3D2>Any Ideas how to make it go faster?</FONT></DIV>
  113. <DIV><FONT size=3D2></FONT> </DIV>
  114. <DIV><FONT size=3D2>Load Iff =
  115. "Hd2:Vector/3d/worldmap.lores",1<BR>Load=20
  116. Iff "Hd2:Vector/3d/worldmap.lores",0<BR>Flash Off <BR>Curs Off =
  117.  
  118. <BR>Degree <BR>Cls 0<BR>Double Buffer <BR>Autoback=20
  119. 0<BR>SW=3D64<BR>SH=3D64<BR>MX=3DSW/2<BR>MY=3DSH/2<BR>GNA=3D-1<BR>NU=3D256=
  120. <BR>UN=3D400<BR>PRE=3D4<BR>AA=3D10<BR>ZA=3D5</FONT></DIV>
  121. <DIV><FONT size=3D2></FONT> </DIV>
  122. <DIV><FONT size=3D2>Do <BR>   If=20
  123. GNA<>ANG<BR>      Blit Clear=20
  124. -1<BR>     =20
  125. S=3DSin(ANG)*NU<BR>     =20
  126. C=3DCos(ANG)*NU<BR>      For Y=3D0 To SW Step=20
  127. PRE<BR>         For X=3D0 To SH =
  128. Step=20
  129. PRE<BR>           =
  130.  Screen=20
  131. 1<BR>            =
  132. Trap P=3DF=20
  133. Point(X+MX,Y+MY)<BR>         =
  134. ;  =20
  135. RX=3DX-MX<BR>          =
  136.  =20
  137. RY=3DY-MY<BR>          =
  138.  =20
  139. NX=3D(RX*C+RY*S)/UN+MX<BR>        =
  140. ;   =20
  141. NY=3D((RY*C-RX*S)/UN+MY)/2<BR>       &=
  142. nbsp;   =20
  143. Screen =
  144. 0<BR>           =20
  145. Cls P,NX,NY To =
  146. NX+PRE,NY+PRE<BR>        =20
  147. Next X<BR>      Next=20
  148. Y<BR>      Screen Swap <BR>   End If=20
  149. <BR>   GNA=3DANG<BR>   =
  150. JA=3DJleft(1)+-Jright(1)<BR>  =20
  151. ANG=3DANG+(JA*AA)<BR>Loop <BR></FONT></DIV></BODY></HTML>
  152.  
  153. ------=_NextPart_000_000D_01BDDA42.E5C60AE0--
  154.